home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / STRING / append.s < prev    next >
Encoding:
Text File  |  1996-01-27  |  506 b   |  30 lines
  1.  
  2. **
  3. ** append (s:STRING)
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8. _append
  9.         move.l  ($4,sp),a6
  10.         move.l  ($8,a6),d0
  11.         move.l  ($4,a1),d1
  12.         move.l  ($8,a1),d2
  13.         sub.l   d2,d1
  14.         cmp.l   d1,d0
  15.         ble.s   .full
  16.         move.l  d1,d0
  17. .full   add.l   d0,($8,a1)
  18.         beq.s   .end
  19.         sub.l   #1,d0
  20.         move.l  ($C,a1),a2
  21.         lea     (-1,a2,d2.l),a2
  22.         move.l  ($C,a6),a6
  23.  
  24. .loop   move.b  (a6)+,(a2)+
  25.         dbra    d0,.loop
  26.  
  27. .end    rtd     #4
  28.  
  29.  
  30.